(def *objects* '(whiskey-bottle bucket frog chain))

(def *map* '((living-room (you are in the living-room of a wizards house. there is a wizard snoring loudly on the couch.)
                           (west door garden)  
                           (upstairs stairway attic))
              (garden (you are in a beautiful garden. there is a well in front of you.)
                      (east door living-room))
              (attic (you are in the attic of the wizards house. there is a giant welding torch in the corner.)
                     (downstairs stairway living-room))))

(def *object-locations* '((whiskey-bottle living-room)
                           (bucket living-room)
                           (chain garden)
                           (frog garden)))
                           

(def *location* 'living-room)

(def describe-path (lambda (path)
  (list 'there 'is 'a (second path) 'going (first path) 'from 'here.)))

(def describe-location (lambda (location map)
  	(second (assoc location map))))
  	
(def describe-paths (lambda (location map)
  (apply append (map describe-path (second (assoc location map))))))